use strict;
use warnings;
my $param = 'abe '.chr(155).chr(156).'lincoln';
warn $param;
$param =~ s/[^a-zA-Z0-9\.\-\=\+\!\@\#\$\%\^\&\*\?\ \x80-\x97\xa0-\xa5]//g;
die $param;
__END__
abe ¢£lincoln at regexS.pl line 4.
abe lincoln at regexS.pl line 6.