# 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($line) ); print \$_ unless \$_ =~ /\$str/ ' '${file}'",