fork download
  1. #!/usr/bin/perl
  2. use warnings;
  3. use strict;
  4. use utf8;
  5.  
  6. my $stringinput = 'Sweééééôden@';
  7. my $stringoutput = $stringinput =~ s/[^A-Za-z0-9]+//gr;
  8. print $stringoutput;
Success #stdin #stdout 0.01s 5300KB
stdin
Standard input is empty
stdout
Sweden