Help for this page

Select Code to Download

Select or download this

#! /usr/bin/perl
use strict;
...

print $input =~ /.*TEXT:\s+".*[\\]([^\\"]+)"/;
#                            ~  ~   ~ ~