while(<DATA>){
  chomp;
  print "== $_ ==\n";
  printf "printf: [%10s]\n", $_;
  printf "substr: [%10s]\n", substr($_, -10);
}
__DATA__
abc
abcdefghjiklmnopqrstuvwxyz