sub domkfile {
    my $fname=shift;
    open my $fh, '<', $fname or die "Can't open `$fname': $!\n";
    join ' ' => map /SOURCE=\.\\(.*)$/i, <$fh>;
}

##</code><code>##

sub domkfile {
    local @ARGV = @_;
    join ' ' => map /SOURCE=\.\\(.*)$/i, <>;
}

##</code><code>##

sub domkfile {
    use argv '3args';
    local @ARGV = @_;
    join ' ' => map /SOURCE=\.\\(.*)$/i, <>;
}