В job.

$50

мне 4 дня работать с утра до вечера за 50$

кто не такой алчный, помогите хотябы с 1 пунктом.

4 дня работать с утра до вечера за 50$

Тогда помогать бесполезно, собирай бутылки и металлолом.

алчный

Ты хочешь, чтобы за тебя сделали твою работу. Работы тут на полчаса-час, $50 - это меньше 3 килорублей, за меньшее что-либо делать просто неприлично. То есть либо даром помогать, либо за пиво, либо за хоть какие-то деньги. Пива ты поставить, я так понимаю, не сможешь по географическим соображениям, за так чужую работу делать как-то не комильфо, а брать меньше $50 - это удел индусов и нищих студентов.

приезжайте в крым, посмотрим сколько вы в несезон в курортном городе заработаете с населением в 10-15 тыс человек.

вам написать 1 регулярку - вопрос ну скажем минуты максимум. мне тыкаться день-два. за это вы просите 50 зеленых? серьезно?

Тут вопрос принципа. Это твоя работа, за которую тебе платят зп. Давай ты за меня сделаешь мою работу, а я просто ЗП получу?

если я умею ее делать и знаю как то давайте, бартер меня устроит.

если не умею и не знаю то извиняйте, косорезить не буду.

Держи уж. Могут быть косяки, я особо не тестировал, но принципы уловить можно.

#!/usr/bin/env perl
use strict;
use warnings;
use 5.010;

use constant TEXT => "10 ELTX5C087C60DIS 9 1 OK -12.98 3.24.1.630 NTU-RG-1402G-W Valik";

{
  say "remove everything after 3rd space";
  my $s = TEXT;
  if ($s =~ s/((?:\S+ ){3}).*/$1/) {
    say $s;
  }
}

{
  say "remove everything before 3rd space";
  my $s = TEXT;
  if ($s =~ s/(?:\S+ ){3}(.*)/$1/) {
    say $s;
  }
}

{
  say "find word beginning with 'ELTX' and ending with 'DIS'";
  my $s = TEXT;
  foreach (split /\s+/, $s) {
    say $_ if m/^ELTX.*DIS$/;
  }
}

{
  say "remove from string everything before DIS if word matches /ELTX.*DIS/";
  my $s = TEXT;
  if ($s =~ s/^(?:.*\s+ELTX.*)(DIS(:?\s.*)?)$/$1/) {
    say $s;
  }
}

{
  say "remove everything after 'ELTX' from matching word";
  my $s = TEXT;
  if ($s =~ s/^(.*\s+ELTX)\w*(.*)/${1}${2}/) {
    say $s;
  }
}

{
  say "find word beginning with 'ELTX' and remove symbols in it before 'DIS'";
  my $s = TEXT;
  if ($s =~ s/^(.*\s+)ELTX\w*(DIS.*)/${1}${2}/) {
    say $s;
  }
}

от души суровый мишка)

правда, помог важное дело сделать

приезжайте в крым

Зачем мне в Крым приезжать? Я свалил из Крыма в 2015м, мне ваши проблемы не интересны и не нужны.

Не за что. Пометь тему как решённую.

http://perldoc.perl.org/functions/split.html

вычленять данные которые разделены пробелами

здесь больше подойдет split

my $data = q[10 ELTX5C087C60DIS 9 1 OK -12.98 3.24.1.630 NTU-RG-1402G-W Valik];
my @res = split(/\s+/, $data);
# далее
$res[0]; # 10;
$res[1]; # ELTX5C087C60DIS
# и т. п.
# удалять весь текст в каждой строке массива ПОСЛЕ четвертого пробела
print join ' ', @res[0..3];