my $str = "そうですねabcの次はdefですね笑";
my $re = ".*?([0-9a-zA-Z!-~]+)[^0-9a-zA-Z!-~]*笑";
print "$1\n" if $str =~ $re;