From Code to Community: Sponsoring The Perl and Raku Conference 2025 Learn more

use strict;
use Importer 'NewsExtractor::TextUtil' => 'normalize_whitespace';
my ($s1, $s2);
$s1 = 'Where am I ?';
$s2 = normalize_whitespace($s1);
is $s2, $s1;
$s1 = ' Where am I ? ';
$s2 = normalize_whitespace($s1);
isnt $s2, $s1;
is $s2, 'Where am I ?';
done_testing;