my $c="fred and deena // married";
  $c=~s/\/\/.*$//;
  print "".(reverse split //,$c)."\n";