use Perl

I wanted to extend TextMate to do a case-aware search-and-replace. I decided to try it in Perl 6 because I wanted to use the :samecase modifier. Unfortunately, I was not able to get :samecase to work, but a simple modification made the script equally useful for me. I know this is mind-bogglingly simple, but it's now a practical part of my development environment for work.

#!/Users/colomon/tools/parrot-latest/languages/rakudo/perl6
my $search_word = @*ARGS.shift;
my $replacement = @*ARGS.shift;

for =$*IN -> $x
{
    my $y = $x.subst($search_word.lc, $replacement.lc, :g);
    my $z = $y.subst($search_word.uc, $replacement.uc, :g);
    say $z.subst($search_word.lc.ucfirst, $replacement.lc.ucfirst, :g);
}

I'll probably tweak this with some further improvements, including one that :samecase couldn't have handled anyway. But I just wanted to celebrate my first practical Perl 6 script!