Select Code to Download

Puppet out:

...
# /usr/bin/perl -w -ni -e 'my $qs = quotemeta("ssh-rsa AAAA/BBBB/knMQ=
+= user@host.f.q.d.n"); print unless  /^$qs$/ ' '/root/user/b1.bak'
Possible unintended interpolation of @host in string at -e line 1.
Name "main::host" used only once: possible typo at -e line 1.

# Direct cli
# perl -w -ni -e 'my $str = sprintf( qq(%s), q(ssh-rsa AAAA/BBBB/knMQ=
+= user@host.f.q.d.n) ); print $_ unless $_ =~ /$str/ '  /root/user/b1
+.bak
...

# From within  puppet
command => "/usr/bin/perl -w -ni -e 'my \$str = sprintf( qq(%s), q($li
+ne) ); print \$_ unless \$_ =~ /\$str/ ' '${file}'",

# cat b1.bak 
ssh-rsa CCCC/DDDD/knMQ== user@host2.f.q.d.n
...
 # perl -w -n -e 'my $str = sprintf( qq(%s), q(ssh-rsa AAAA/BBBB/kPW+Y
+i9yZ7Kh0mL/knMQ== user@host.f.q.d.n) ); print $_ unless $_ =~ /$str/ 
+'  /root/user/b1.bak
ssh-rsa CCCC/DDDD/knMQ== user@host2.f.q.d.n
ssh-rsa AAAA/BBBB/kPW+Yi9yZ7Kh0mL/knMQ== user@host.f.q.d.n