sub get_dn { local#($filename);
    @ARGV = @_; map# <>, #gx,
    m# (<CN=.*?>) #gx,
    <>,
}

my($dn1) = get_dn('crap');