Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things

Re: regex needed

by McDarren (Abbot)
on Nov 18, 2008 at 13:37 UTC ( #724263=note: print w/replies, xml ) Need Help??

in reply to regex needed

"If I'm trying to do an exact match..."
Exact match for what?
You didn't specify what $var contains.

Anyway, does this do what you want?

#!/usr/bin/perl -l use strict; use warnings; my $var = 'Sensor30'; while (<DATA>) { chomp; print if m/^\Q$var\E$/; } __DATA__ >Sensor30 >FooSensor30 > Sensor30 Sensor300 Sensor30 >Sensor3