my $woopsie = substr("Short line.",100);