#!/usr/bin/perl use strict; use warnings; use Data::Dumper; my ($selection,$selection2,$selection3,$value,$t2); $value = "13gr"; print "regex question: How do I modify in place in only one character class?\n"; $selection = qq| 000-F 11EG 12160 12164 12170 12216 12330 12480 12484 12488 12534 12756 12760 12764 12813 12A 12B 12BB 12D 12ea 12JI 12NO 13gr 2--2 22QS 22WO 22WO.1 |; $selection2 = $selection ; $selection3 = $selection ; $selection =~ s/(\Q$value\E)/$1 selected/ ; $selection2 =~ s/((?:.*?($value)){2}).*(\">)// ; $selection3 =~ s/(?:.*?($value)){2}// ; my $t3 = $&; #print "Matches: $1, $2, $3, $4, $5, $6, $7\n"; ($t2 = $t3) =~ s/(\">)/\" selected >/ ; $selection3 .= $t2 ; print "3: $selection3\n\n"; print "value $value\n"