Can't modify scalar safe chop in scalar assignment... #### #!/usr/bin/perl -w use strict; use Text::Bastardize; chomp(my $line = <>); my $latin = Text::Bastardize->new(); $latin->charge($line); print $latin->pig(),"\n";