Select Code to Download

my @matches = $data =~ m/and/;
my $count = scalar @matches;

  my $count=0;
  while ($data=~m/and/g) { ++$count }

$;=sub{$/};@;=map{my($a,$b)=($_,$;);$;=sub{$a.$b->()}}
split//,".rekcah lreP rehtona tsuJ";$\=$ ;->();print$/