kainwinterheart 17.11.2011 13:07 workE6F3A974

unless( $anum =~ s/^((.*)((\s)|(I>)))(.*)$/$1$external/ )
{
$anum = $external;
}

Do you really want to delete ?