#!/usr/bin/perl
use warnings;
use strict;
use utf8;
my $stringinput = 'Sweééééôden@';
my $stringoutput = $stringinput =~ s/[^A
-Za
-z0
-9]+//gr
;
IyEvdXNyL2Jpbi9wZXJsCnVzZSB3YXJuaW5nczsKdXNlIHN0cmljdDsKdXNlIHV0Zjg7CgpteSAkc3RyaW5naW5wdXQgPSAnU3dlw6nDqcOpw6nDtGRlbkAnOwpteSAkc3RyaW5nb3V0cHV0ID0gJHN0cmluZ2lucHV0ID1+IHMvW15BLVphLXowLTldKy8vZ3I7CnByaW50ICRzdHJpbmdvdXRwdXQ7