use Text::Balanced; $text='blablablabla'; ($extracted, $remainder) = extract_tagged($text); print $extracted; #Error #Undefined subroutine &main::extract_bracketed called at C:\InstallV3\Test.pl