[perl] espressioni regolari

[shishii]

$str =~ /\b(\w+)\b(\w+)\b(\w{4})/;

$risultato = $2."_".$3;