$str = "mycompany----engineer=====itdept-----33";

my @pieces = split /\W+/, $str;