circle.pl

#!/usr/bin/env perl

# https://circle.grasserisen.de/
# xclip -o -l | ./circle.pl
# xclip -o -l | ./circle.pl | sort -R | head

use 5.016;
use warnings;
use autodie;

foreach ( <> )
{
  next if ( /^$/ ); # puste
  s/^([^@]*)\n$/$1\@mastodon.social\n/;
  s/^(.*)\@(.*)/https:\/\/$2\/\@$1/;
  print;
}