Ha csak egy szöveget keresünk, egy szövegben.

if (index($string, 'string') != -1) {
 print "\$string contains 'string'\n";
}
 

Valamilyen minta alapján szeretnénk megvizsgálni a szöveget

if ($string =~ /pattern/) {
 print "\$string mathches the pattern\n"; 
}
 

Keresgéltem, és láss csodát találtam, csak a megfelelő kulcsszavakat kell megadni, mindenki legjobb barátjának, a googlenek, hogy valami értelmes, és ugyan akkor használható eredményt mutasson.

use JSON::XS qw(encode_json decode_json);
use File::Slurp qw(read_file write_file);
my %hash;
{
 my $json = encode_json \%hash;
 write_file('dump.json', { binmode => ':raw' }, $json);
}
{
 my $json = read_file('dump.json', { binmode => ':raw' });
 %hash = %{ decode_json $json };
}