$string =~ m:|(\w+)\.(\w+):;
$extracted = "$2 $1";