>perl -wMstrict -le
"my $s = '^C^D^V^V^A os08 34917 080806 R S 0808050150 00006157^B{T}';
 print $s;
 $s =~ s{ .*? (?= {T}) }{}xms;
 print $s;
"
^C^D^V^V^A os08 34917 080806 R S 0808050150 00006157^B{T}
{T}
[download]