DB<35> use Data::Dumper

  DB<36> $text2 = "tldmfmyvkif4dwhbvysdrtaysdf";

  DB<37> 

  DB<37> $text2 =~ s/y//;

  DB<38> @neu = $text2 =~ /^\w{13}/ig;

  DB<39> print "@neu";
tldmfmvkif4dw
  DB<40> print Dumper \@neu
$VAR1 = [
          'tldmfmvkif4dw'
        ];