use strict; use warnings; my $data = "name: ka-lvscluco;" $data =~ m/:\s+(.+?);/; my $extracted = $1; print "'$extracted' was pulled from '$data'\n";