use Data::Dump;
my @argv = ('--hello','world --job foo','--job','bar');
my ($args, $job) = split /--job /, join( ' ', @argv );
dd $args, $job;
__END__
("--hello world ", "foo ")