Select Code to Download

        mycompany----engineer=====itdept-----33

use Time::HiRes qw(time);

...
$Name = "MyName";
$Pattern = "([a-z]+)\-+([a-z]+)\=+([a-z]+)\-+([0-9]+)";
Extract($str,$Name,$Pattern);