my $file = substr $str, 56;