#!/usr/bin/perl my $string = 'is that a téléphone?'; my $matches = 0; $matches++ if ($string =~ m/téléphone/); # match it & count print "Content-type: text/html\n\n"; print "Current: $string

$matches\n";