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

##</code><code>##

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


##</code><code>##

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