$script2 = `script1 arg1 arg2 arg3 arg4`;
$working_dir = &getWorkDir($script2);

sub getWorkDir {
    $text = @_;
    while($text) {
        if ($_ =~ ".*user_name.*"){
            my $dir = $_;
        }
    return $dir;
}