$a=reverse(<>);
for(1 .. length($a)){
  $b=substr($a,0,$_);
  print(scalar(reverse $b) . $b . $/)
}