Perl Regexp to tcl
===

Does anybody know how to transform this `perl` expression:  

    $FullPath =~ s/^([^\s]*)((m\-\-)|(aba))\s(.*)/\1launched\5/;   
    $FullPath =~ s/^([^\s]*)((m\-\-)|(aba))$/\1launched/;
to `TCL`

