It's a question of exactly what you want.

Precisely so. This is why (IMHO) How to ask better questions using Test::More and sample data should be one of the first posts read by all wisdom seekers. Here's a fuller set of tests building on the example of BillKSmith. It's up to flieckster to flesh out the @tests array with more exhaustive data sets.

use strict;
use warnings;

use Test::More;

my @tests = (
    { have => '"654321_1111"', want => '654321_1111' },
);

plan tests => 5 * @tests;

for my $t (@tests) {
    is billksmith  ($t->{have}), $t->{want}, 'BillKSmith';
    is syphilis    ($t->{have}), $t->{want}, 'syphilis';
    is grandfather ($t->{have}), $t->{want}, 'GrandFather';
    is rsfalse     ($t->{have}), $t->{want}, 'rsFalse';
    is hippo       ($t->{have}), $t->{want}, 'hippo';
}

sub billksmith {
    my $string = shift;
    my $regex = qr/^\"(.+)\"$/;
    my ($got) = $string =~ m/$regex/;
    return $got;
}

sub syphilis {
    my $str = shift;
    substr ($str,  0, 1, '');
    chop $str;
    return $str;
}

sub grandfather {
    my $str = shift;
    $str =~ s/^"|"$//g;
    return $str;
}

sub rsfalse {
    my $string = shift;
    for (1 .. 2) {
        $string = reverse $string;
        chop $string;
    }
    return $string;
}

sub hippo {
    my $str = shift;
    $str =~ tr/"//d;
    return $str;
}
[download]

1..1
ok 1 - Remove quotes
[download]

Let us assume you were confused because you weren't expecting tests.

A piece of code which accepts input and produces output is useful to the end user, but slightly less so to the developer trying to determine if a particular requirement of the code is met or not. Since your initial description of the problem is (and continues to be) very vague it is just about impossible for us or anyone else to produce a solution which matches precisely the unknown spec.

In such situations therefore, we produce instead a test. The test shows what output we expect for a given input, analyses the result of the code we use to try to satisfy the test and outputs the result of that test (using TAP - which is the output you have quoted here).

Here are some pages for you to read to undestand all this:

• How to ask better questions using Test::More and sample data
• Basic Testing Tutorial
• I know what I mean. Why don't you?
• Short, Self-Contained, Correct Example

It may seem daunting and/or unnecessary now but it will help you a great deal in the long run.

---

🦛