my @lines=do { local @ARGV=($dest); <>};